home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / manchest.lha / MANCHESTER / manchester / 4.1 / textUpdates.st < prev    next >
Text File  |  1993-07-24  |  1KB  |  36 lines
  1. "    NAME        textUpdates
  2.     AUTHOR        miw@cs.man.ac.uk (Mario Wolczko)
  3.     FUNCTION    removes annoying and redundant 'updated text' warnings
  4.     ST-VERSION    4.1
  5.     PREREQUISITES    
  6.     CONFLICTS    ParagraphEditor>textHasChanged
  7.     DISTRIBUTION    world
  8.     VERSION        1
  9.     DATE         1993
  10. SUMMARY As of 4.1, whenever you edit a text in a view, it is flagged
  11. as changed, even if you undo the edit.  Then, when you close the view
  12. or change the selected text, you get a redundant warning, 'The text
  13. showing has been altered.  Do you wish to discard those changes?'
  14.  
  15. File this in, and they're history.
  16.  
  17. Mario Wolczko
  18.  
  19. Dept. of Computer Science   Internet: mario@cs.man.ac.uk
  20. The University              uucp: uknet!!man.cs!!mario
  21. Manchester M13 9PL          JANET: mario@uk.ac.man.cs
  22. U.K.                        Tel: +44-61-275 6146  (FAX: 6236)
  23. ______the mushroom project___________________________________
  24.  
  25. "
  26. 'From Objectworks\Smalltalk(R), Release 4.1 of 15 April 1992 on 24 June 1993 at 6:17:33 pm'!
  27.  
  28.  
  29.  
  30. !ParagraphEditor methodsFor: 'private'!
  31.  
  32. textHasChanged
  33.     "Answer whether the current text is the same as the initial text."
  34.  
  35.     ^textHasChanged and: [self text ~= view getContents]! !
  36.